home *** CD-ROM | disk | FTP | other *** search
- # note that $modelPath is automagically set to be the complete path
- # name of whereever this .mdl file wrapper is located
- #
- source $modelPath/initialDefines.eve
-
- # note that since "source" is a built-in tcl command, we needed to
- # give it the full path name of the previous file so it could load it.
- # In the next command, though, since "loadControlPanel" is a new eve
- # command, it is smart enough to append the value of $modelPath to any
- # file that doesn't start with "/"
- #
- loadControlPanel controls.nib
- loadControlPanel animation.nib
-
- startShape dynamicExample
- EveCmd {Rotate $roll 1 0 0}
- Disk $zMin $radius $thetaMax
- Cylinder $radius $zMin $zMax $thetaMax
- Disk $zMax $radius $thetaMax
- endShape
-